unit ec_goto;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ec_labelbase;

type

  { TECGotoFrame }

  TECGotoFrame = class(TECLabelBaseFrame)
  private

  public
    function GetCommandCode: Integer; override;
  end;

var
  ECGotoFrame: TECGotoFrame;

implementation

uses constants;

{$R *.lfm}

{ TECGotoFrame }

function TECGotoFrame.GetCommandCode: Integer;
begin
  Result := GOTO_EC_CODE;
end;

end.

